perm filename TEST.F4[NEW,LCS]1 blob sn#390612 filedate 1978-10-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	1	FORMAT(' TYPE NUM.  '$)
C00003 ENDMK
CāŠ—;
1	FORMAT(' TYPE NUM.  '$)
2	FORMAT(A1)
3	FORMAT(I4)
4	TYPE 1
	ACCEPT 2,J
	J=(J-'0')/536870912
	TYPE 3,J
	GO TO 4
	END